5 REM FIND TRACK AND SECTOR OF A FILE
10 Z$=CHR$(0): INPUT"WHICH FILE";NM$: OPEN 15,8,15
20 OPEN 2,8,2,NM$: PRINT#15,"M-R"CHR$(249)CHR$(0)CHR$(1)
30 GET#15,A$: BF=6+2*ASC(A$+Z$)
40 PRINT#15,"M-R";CHR$(BF)CHR$(0)CHR$(2)
50 GET#15,A$,B$: TR=ASC(A$+Z$): SC=ASC(B$+Z$)
60 CLOSE 2: CLOSE 15: PRINT"TRACK";TR;"SECTOR";SC